COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE	SQ
C00005 ENDMK
C⊗;
	TITLE	SQ
	X=1
	Y=2
	XCNT=3
	YCNT=4
	DPYCNT=5
	MASK=6
	N=7
	S=10
	CONS=25
	OPDEF	PGIOT[715000,,0]
	OPDEF	PGSEL[PGIOT 0,]
	OPDEF	PGACT[PGIOT 1,]
	OPDEF	DPYOUT[703000,,0]
	OPDEF	PPIOT[702000,,0]
	OPDEF	DPYPOS[PPIOT 2,]
	OPDEF	PPACT[PPIOT 1,]
START:	RESET
	MOVNI	X,1000
	MOVEI	Y,1000
	MOVEI	XCNT,2
	MOVEI	YCNT,1
	PGSEL	1
	PGACT	1B19
	PPACT
	DPYPOS	↑D1000
	MOVEI	MASK,37506
	MOVEI	DPYCNT,2
LOOP:	MOVEM	DPYCNT,DISOUT+1
	DPYOUT	1,DISOUT
	JSP	N,XCALC
	JSP	N,YCALC
	CAMN	X,[-10]
	JRST	FINISH
	JSP	N,BYTEIT
	AOJA	DPYCNT,LOOP
FINISH:	EXIT	1,
	EXIT
XCALC:	SOJGE	XCNT,(N)
	MOVEI	XCNT,1
	JUMPGE	X,XPOS
	ADDI	X,CONS
XREV:	IMUL	X,[-1]
	JRST	(N)
XPOS:	SUBI	X,CONS
	JRST	XREV
YCALC:	SOJGE	YCNT,(N)
	MOVEI	YCNT,1
	JUMPGE	Y,YPOS
	ADDI	Y,CONS
YREV:	IMUL	Y,[-1]
	JRST	(N)
YPOS:	SUBI	Y,CONS
	JRST	YREV
BYTEIT:	DPB	X,[POINT 11,DISPLY(DPYCNT),10]
	DPB	Y,[POINT 11,DISPLY(DPYCNT),21]
	IORM	MASK,DISPLY(DPYCNT)
	JRST	(N)
DISOUT:	XWD	0,DISPLY
	Z
	Z
	Z
	LIT
DISPLY:	Z
	BYTE	(11)-1000(11)1000(3)7(3)7(2)1(2)2(4)6
	BLOCK	↑D200
	END	START